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I.  SYSTEM  OUTLINE 
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0//  OVERVIEW 

The  BIGMAC  system  is  a  programmable  utility  for  performing  textu¬ 
al  transformations  on  ANSI  FORTRAN  code.  BIGMAC  was  developed  for  the 
specific  purpose  of  replacing  procedure  calls  with  in-line  code.  For 
the  purposes  of  modularity  and  hierarchical  development  it  is  frequent¬ 
ly  desirable  to  code  simple  routines  for  low  level  data  abstractions 
such  as  stacks  and  lists.  However,  it  is  undesirable  to  pay  the  runtime 
costs  of  parameter  passing  and  routine  linkage  for  such  frequently  in¬ 
voked  routines.  BIGMAC  remedies  the  situation  by  allowing  one  to  pro¬ 
gram  and  develop  a  prototype  of  the  modular  variety  and  then  produce 
the  efficient  production  code  by  transforming  the  prototype  with  BIGMAC. 
The  degree  of  speed-up  will  depend  on  the  machine  and  compiler  in 
question.  In  a  recent  large  scale  application,  BIGMAC  speeded  up  the 
DAVE  system  by  47%.  BIGMAC  can,  of  course,  be  used  for  conventional 
macro  applications.  Of  greater  interest,  is  that  BIGMAC  is  general 
enough  to  enable  the  programming  of  limited  language  extensions. 

The  design  of  BIGMAC  incorporates  many  of  the  principles  found  in 
typical  macro  facilities.  It  is  rather  unusual  in  that  macros  are  not 
templates  for  textual  substitution  but  are  executable  routines.  This 
very  dynamic  approach  affords  a  great  deal  of  flexibility  with  low  de- 
velopmemt  overhead,  as  an  existing  language  can  be  used  as  the  basis 
for  the  macro  language.  The  base  language  provides  conditional  execu¬ 
tion  and  local  and  global  data  management.  The  developer  need  only  con¬ 
cern  himself  with  the  macro  system  interface.  However,  in  the  case  of 
a  language  with  weak  string  capabilities  (e.g.,  FORTRAN),  the  designer 
must  also  bolster  the  base  language's  capabilities  in  this  regard. 

BIGMAC  macros  are  routines  written  in  such  an  extension  of  FORTRAN. 


2- 


Fiqure  1:  BI6MAC  Outline 


The  structure  of  the  BIGMAC  system  is  depicted  in  Figure  1.  At 
the  head  of  BIGMAC  is  a  table-driven  scanner.  This  scanner  in  con¬ 
junction  with  a  user-programmed  macro  module  forms  a  text  transform¬ 
ing  machine.  A  macro  module  consists  of  a  recognition  table  and  a  set 
of  macro  actions.  A  recognition  table  is  an  array  of  phrases  to  be 
recognized,  called  the  recognition  domain,  and  a  function  mapping  each 
phrase  into  the  name  of  a  macro  action  in  the  macro  module.  Each  macro 
action  is  a  program  for  performing  a  transformation  on  the  text  stream 
to  which  the  scanner  is  currently  being  applied.  These  transformations 
are  carried  out  with  the  aid  of  a  number  of  system  primitives. 

The  operation  of  a  BIGMAC  text  transforming  machine  can  now  be 
described  as  follows.  The  scanner  will  search  a  submitted  input  in  a 
forward  scan  until  either  -- 

1:  The  end  of  input  is  reached  -- 
The  machine  stops. 
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A  suffix  of  the  text  thus  far  scanned  matches  a 
phrase  in  the  recognition  domain  -- 

The  associated  macro  action  is  invoked.  Upon  return 
the  scanner  resumes  where  it  left  off.  The  BIGMAC 
scanner  does  not  rescan  the  recognized  phrase. 

A  BIGMAC  user  writes  macro  modules  in  a  language  called  STREX 
(STRing  Extended)  FORTRAN.  This  linguistic  framework  is  the  subject 
of  the  second  part  of  this  manual.  For  the  present  it  suffices  to 
know  that  there  is  a  system  compiler  for  transforming  STREX  specifica¬ 
tions  into  macro  modules. 
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V/  SCANNER:  RECOGNITION  COMPONENT 

The  BIGMAC  scanner  can  recognize  any  subroutine  call  or  function 
reference  in  an  input  of  ANSI  FORTRAN  code.  To  specify  a  particular 
routine  invocation  for  recognition  a  user  just  gives  the  name  of  the 
routine.  Furthermore,  a  user  restricts  the  admissible  syntax  of 
recognized  invocations  by  indicating  -- 

l_:  whether  the  routine  is  a  subroutine  or  function. 

the  number  of  arguments  in  the  invocation. 

If  the  scanner  recognizes  an  invocation  which  is  not  admissible  (i.e., 
violates  either  1  or  2)  then  a  message  is  issued  and  the  associated 
macro  is  not  invoked. 

An  activation  phrase  is  the  text  of  a  recognized  and  admissible 
invocation.  More  explicitly,  in  the  case  of  a  function  reference,  it 
is  the  text  from  the  leftmost  letter  of  the  routine  name  to  the  right 
parenthesis  ending  the  list  of  actual  arguments.  For  a  subroutine  call 
it  is  the  text  from  the  'C  in  'CALL’  to  the  end  of  the  line,  i.e., 
it  is  the  entire  CALL  statement. 

The  rule  for  associating  an  activation  phrase  with  a  macro  action 
is  particularly  simple.  The  name  of  the  routine  in  the  activating  phrase 
is  taken  to  be  the  name  of  the  macro  action  to  be  invoked.  The  actual 
arguments  of  a  particular  invocation  are  passed  to  the  macro  action 
as  text  strings. 

For  function  references,  the  associated  macro  returns  a  string 
which  is  substituted  for  the  activation  phrase.  For  subroutine  calls 
the  activation  phrase  is  deleted. 

Example  1 :  Suppose  a  user  has  specified 

the  recognition  table  --  Macro  Name  S/F 

S 
F 
F 


#  of  Args. 
2 
1 
2 


K 

L 
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The  action  of  the  scanner  with  this  recognition 
table  is  illustrated  below  -- 


10  CALL  K  (  L  (  M  (J,.^3E-1J  +  5  )  ,  1+3  ) 


10  CALL  K  (  L  (^<M>+5J  ,  1+3  ) 


L 


OJ 


10  CALL  K{.<L>.  .1+3  1 


0) 


10 


Legend: 

Activation  Phrase 

t - +  Actual  Argument 

<X>  Result  of  Macro  X 

X  Invoke  X 

'V 
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Ijj  SCANNER:  TRANSFORMATION  COMPONENT 

The  BIGMAC  scanner  views  an  input  text  stream  as  a  sequence  of 
text  fragments.  There  are  four  types  of  fragments  -- 


1: 

Comment 

-  An  ANSI  Standard  comment  line. 

2: 

Label 

-  An  ANSI  statement  label. 

3: 

N-Statement 

-  An  ANSI  statement  containing  no 
phrases. 

activation 

A-Statement 

-  An  ANSr  statement  containing  at 
activation  phrase. 

least  one 

Note  that  these  fragment  definitions  will  unambigously  partition  any  in¬ 
put  stream  of  ANSI  Standard  code. 

The  BIGMAC  scanner  is  unusual  in  that  before  invoking  a  macro  action 
it  transforms  the  input  fragments  so  that  the  following  condition  is 
satisfied  -- 

A-Statement  Condition:  The  placement  of  a  text  fragment  just  before 
an  A-statement  fragment  in  the  transformed  input  sequence  * 
must  guarantee  that  the  fragment  is  executed  just  before  the 
execution  of  the  A-statement  fragment. 

This  preconditioning  of  the  input  considerably  simplifies  the  requir¬ 
ed  text  transforming  primitives  (see  section  4).'  Henceforth,  the  dis¬ 
cussion  of  the  input  sequence  will  always  refer  to  the  precon¬ 
ditioned  input  sequence.  Those  interested  in  the  exact  transforms 
employed  are  referred  to  Appendix  A. 

Example  2:  Suppose  'SUB'  is  in  the  recognition  domain.  The  original 
text  on  the  left  is  transformed  by  the  scanner  into  the 
text  on  the  right. 


-7- 


Original 
DO  10  I  =  1 ,3 
DO  20  J  =  1 ,4 
IF  (I.EQ.J)  CALL  SUB(I) 

IF  (I.EQ.3)  GO  TO  10 
20  IF  (J.EQ.4)  CALL  SUB(4) 

10  CONTINUE 

Legend : 

<8ii>  A  label  guaranteed  to  be 
unique  with  respect 
to  those  already  in 
the  program  unit  con¬ 
taining  it. 


Condi tioned 
DO  <&1>  1=1,3 
DO  <&2>  J  =  1  ,4 

IF  (.NOT. (I.EQ.J.))  GO  TO  <a3> 
CALL  SUB(I) 

<&3>  CONTINUE 

IF  (I.EQ.3)  GO  TO  10 
IF  (.NOT. (J.EQ.4))  GO  TO  <8t2> 
CALL  SUB(4) 

<&2>  CONTINUE 
10  CONTINUE 
<&1>  CONTINUE 


In  section  0  it  was  stated  that  the  scanner  activates  a  macro 
as  soon  as  an  activation  phrase  is  reached.  This  implies  that  if  a 
number  of  function  references  are  imbedded  in  an  expression,  thsn  thiy 
will  be  recognized  and  activated  in  the  order  that  they  would  be  reached 
by  a  left  to  right  post-order  traversal  of  the  expression's  parse 
diagram.  Example  3  illustrates  this. 

Example  3:  Assume  the  recognition  table  of  Example  1.  Then  in  the 
statement  -- 

CALL  K(L(N(I,J)),  M(I,L(J))) 

--the  scanner  will  activate  the  macros  in  the  order  in¬ 
dicated  on  the  parse  tree  below  -- 
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Thus  if  a  number  of  different  macro  actions  place  text  fragments  just 
prior  to  the  same  A-statement  fragment,  then  those  fragments  will 
occur  in  the  order  of  activation  of  the  corresponding  routine  refer¬ 
ences.  But  by  the  observation  above  this  order  is  a  reflection  of 
the  order  of  semantic  evaluation  of  the  A-statement' s  parse  tree. 
Hence  the  requirement  of  the  A-Statement  Condition  is  in  essence 
extended  to  the  expression  level. 
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MACRO  ACTION  SET  STRUCTURE 

Not  every  macro  name  in  a  macro  action  set  need  be  in  the  recog¬ 
nition  table.  Those  names  that  are  in  the  recognition  table  are  termed 
primary.  All  other  macros  in  the  action  set  are  auxi 1 lary  and  are 
presumably  used  to  modularize  a  complicated  macro  action.  A  freguent 
user  can  build  libraries  of  auxiliary  macro  actions  and  use  them  to 
augment  the  action  set  of  a  particular  macro  module.  Of  course,  a 
macro  module  will  have  a  set  of  action  names  which  is  a  superset  of 
the  names  in  the  recognition  table. 

The  compiled  macro  actions  utilize  a  number  of  system  routines 
which  implement  -- 

A  string  data  type  sub-language. 

A  text  transformation  package. 

3:  A  variety  of  primitives  for  analyzing  the  structure  of 
the  input  stream  as  a  FORTRAN  program. 

The  semantics  of  BIGMAC's  string  extension  are  quite  conventional  and 
are  discussed  at  length  in  the  second  part  of  this  manual.  The  other 
features  are  the  subject  of  the  following  sections. 


The  BIGMAC  scanner  recognizes  a  number  of  special  activation 
phrases.  These  phrases  are  provided  to  coordinate  macro  actions  with 
respect  to  the  program  structure  of  the  input  text.  The  macro  actions 
which  correspond  to  these  phrases  have  been  given  special  reserved 
names.  They  must  be  subroutines  with  no  arguments.  We  have  in 
tabular  form  -- 


Macro  Name 
SYSBEG 

SYSEND 


BLKMAC 


Activation  Phrase  (AP)  Substitution  for  AP 


Empty  string  just  left  As  for  a  subroutine, 
of  the  first  character 
in  input  file. 

Empty  string  just  right  As  for  a  subroutine, 
of  the  last  character 
in  input  file. 

Empty  string  just  left  Empty  string, 
of  the  first  character 
in  the  END  statement  of 
a  BLOCK  DATA  program  unit. 
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(contd) 

Macro  Name 

Activation  Phrase  (AP) 

Substitution  for  AP 

MANBEG 

Empty  string  just  left 
of  the  first  character 
in  the  first  executable 
statement  in  a  main  pro¬ 
gram. 

As  for  a 

subroutine 

MANEND 

A  STOP  statement  in  a 
main  program. 

'STOP' 

ROUBEG 

Empty  string  just  left 
of  the  first  character 
in  the  first  executable 
statement  in  a  subprogram. 

As  for  a 

subroutine 

ROUEND 

A  RETURN  statement  in  a 
subprogram. 

'RETURN' 

PRGEND 

An  END  statement  in  an 
executable  program. 

'END' 
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Example  4:  The  contrived  program  below  has  been  annotated  to  show  the 
points  where  the  special  macros  would  be  invoked  if 
present  in  the  action  set  -- 


SYSBEG  ■ 

COMMON  /IT/  I 
INTEGER  I,J,K 


MANBEG 

■ 

READ  (5,100)  K 

100 

FORMAT  (12) 

DO  10  0  =  1  ,K 

10 

J  =  I  +  SUM(J-1 ) 

WRITE  (6,200)  K,I 

200 

FORMAT  (IHl  ,2HF(,I2,2H) 

MANEND  1  STOP  i 

PRGEND 

1  END 

INTEGER  FUNCTION  SUM(J) 
INTEGER  I,J 


ROUBEG  I 

SOM  =  0 

IF  (J.EQ.O)  I  RETURN]  ROUEND 


DO  10  I  =  1,J 

10 

StIM  =  SUM  +  J 

ROUEND 

1  RETURN  1 

PRGEND 

fENDl 

BLOCK  DATA 
COMMON  /IT/ I 
DATA  I/O/ 


BLKMAC 

■ 

PRGEND 

fENDl 

SYSEND  I 


Legend: 

xxxx  Special  Macro 
□  AP 

■  Null  string  AP 
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The  placement  of  commons  in  the  SYSBEG  macro  makes  those  commons 
(and  only  those  commons)  global  to  the  macro  process.  That  is,  the 
extent  of  these  commons  will  be  that  of  BIGMAC's  entire  execution. 
These  common  storage  cells  can  be  used  for  global  communications 
between  macro  actions. 

For  example,  one  may  wish  to  have  a  flag,  INMAIN,  which  is  true 
while  the  scanner  is  in  the  main  routine  of  the  input  text  and  false 
at  all  other  times.  Putting  INMAIN  in  a  common  block  in  the  SYSBEG 
macro  will  guarantee  that  INMAIN  will  be  available  to  all  other 
macros  containing  the  common  block  and  further  that  the  value  of 
INMAIN  will  be  preserved  from  invocation  to  invocation.  INMAIN  is 
initially  set  to  false  by  the  SYSBEG  macro.  The  MANBEG  macro  should 
turn  it  on  and  the  PRQBND  macro  will  turn  it  off.  It  should  be 
noted  that  common  variables  which  are  strings  may  not  be  equivalenced 
either  implicitly  or  explicitly. 
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4//  MACRO  TRANSFORMATION  PRIMITIVES 

Just  as  the  input  stream  is  viewed  as  a  sequence  of  text  fragments, 
so  is  the  output  of  the  system.  These  fragments  are  also  of  four  kinds  - 

1_:  Comment  -  An  ANSI  Standard  comment  line. 

Label  -  An  ANSI  statement  label. 

Statement  -  An  ANSI  statement. 

Error  -  An  error  message.  These  messages  are  printed 

out  but  do  not  occur  in  the  final  BI6MAC  output 

The  output  sequence  is  built  by  appending  fragments  to  the  right  end 
of  the  current  sequence.  These  fragments  are  appended  by  the  scanner 
and  also  the  user  via  the  text  transformation  primitives. 

The  scanner  traverses  the  input  in  a  forward  scan.  Every  input 
fragment  is  appended  to  the  output  sequence  after  the  scanner  has 
traversed  it.  Thus  if  the  scanner  detects  any  errors  while  traversing 
a  fragment  then  the  scanner's  error  message  fragments  will  preceed 
the  fragment  as  the  scanner  appends  the  error  fragments  first.  Similar¬ 
ly,  for  A-statement  fragments  the  scanner  will  first  activate  all  the 
associated  macro  actions  before  the  resulting  neutralized  A-statement 
is  appended  as  a  statement  fragment.  Hence,  if  the  macro  actions 
append  some  fragments  then  these  fragments  will  immediately  preceed 
their  respective  neutralized  A-statement  fragment.  Thus  the  necessity 
and  utility  of  the  A-Statement  Condition. 

The  text  transformation  primitives  allow  the  user's  macro  actions 
to  append  any  of  the  fragment  types  onto  the  output  sequence.  There 
is  a  primitive  for  each  type,  i.e.,  the  COMMENT,  LABEL,  EXECUTE,  and 
ERROR  statements  of  STREX  described  in  the  second  part  of  this  manual. 
Each  primitive  takes  a  user-constructed  string  and  regardless  of  its 
syntax  appends  it  to  output  as  a  fragment  of  the  type  specified  by 
the  primitive. 

Any  sequence  of  these  primitives  can  be  executed.  A  critical 
feature  of  BIGMAC  is  that  it  places  a  CONTINUE  statement  fragment 
between  any  two  consecutive  label  fragments.  This  is  semantically 
natural  if  one  considers  a  FORTRAN  in  which  statements  can  have  any 
number  of  labels.  Along  the  same  lines,  if  the  right  most  fragment 
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of  the  current  output  sequence  is  a  label  fragment  and  one  is  about 
to  append  either  a  comment  or  error  fragment  then  this  fragment  is 
not  ap-pended^  but  placed  to  the  immediate  left  of  the  label  fragment. 
This  guarantees  that  the  label  will  refer  to  the  next  statement  frag¬ 
ment  appended  and  again  is  semantically  natural  if  one  considers  a 
FORTRAN  in  which  comments  can  occur  arbitrarily  within  the  code. 

These  two  precautions  insure  that  if  a  user  generates  syntactically 
correct  fragments,  then  the  result  of  appending  an  arbitrary  sequence 
of  such  fragments  is  also  syntactically  correct. 

The  above  mechanism  only  allows  the  insertion  of  text  into  pro¬ 
gram  parts,  as  activation  phrases  only  occur  in  program  parts.  This 
implies  that  a  user  has  no  way  of  inserting  specification  statements 
into  a  program  unit.  This  situation  is  alleviated  by  a  special  prim¬ 
itive  which  allows  a  macro  action  to  insert  statement  fragments  just 
before  the  first  specification  statement  (an  executable  statement  if 
there  are  no  specification  statements)  in  the  program  unit  containing 
the  associated  activation  phrase.  The  location  for  insertion  is 
referred  to  as  the  declaration  insertion  point  (DIP)  of  the  program 
unit.  See  the  DECLARE  statement  of  STREX  in  the  second  part  of  this 
manual. 

Example  5:  Assume  the  recognition  table  of  Example  1.  Moreover 
assume  that  each  macro  action  executes  the  sequence  of 
primitives  -- 

Macro  Name  Action  Sequence 

M  <Spec.> ,<Comm. > 

L  <Stmt. > ,<Label > 


K 


<Label > ,<Stmt. > 
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The  preprocessor  will  transform  code  as  illustrated  below 
SUBROUTINE  SIMPLE(I,J)  SUBROUTINE  SIMPLE(I,J) 


m?} 

<Spec(M^ )> 

10  CALL  K(L(M(I,J)),M(I,L(J))) 

<Spec(M2)> 

RETURN 

<Comm(Mi )> 

END 

10 

<Stmt(L-j  )> 

<Label (L, )> 

<Stmt(L2)> 

<Comm(M2)> 

<Label(L2)> 

CONTINUE 

<Label(Kp> 

<Stmt(K^  )> 
RETURN 

END 


Legend: 

(X.)  denotes  the  activation  of  X. 
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5//  NAME  GENERATION  AND  EXPRESSION  ANALYSIS 

A  generator  for  symbolic  names  and  labels  is  available  to  the 
BIGMAC  macro  writer.  The  generator  distinguishes  four  classes  of 
identifiers  as  follows  -- 


1:  Label 

Integer  Name 

Real  Name 

4:  Block  Name 


-  An  ANSI  Standard  statement:.  1  abel . 

-  An  ANSI  symbolic  name  whose  first 
character  is  one  of  the  letters 
I,  J,  K,  L,  M,/or  N. 

-  An  ANSI  symbolic  name  which  is  not 
an  integer  name. 

-  An  ANSI  symbolic  name.. 


For  classes  1  through  3,  each  invocation  of  the  generator  returns  an 
identifier  of  the  appropriate  type  which  is  unique  with  respect  to 
those  of  the  program  unit  currently  being  scanned  and  those  generated 
since  the  program  unit's  first  character  was  traversed.  For  the  class 
of  block  names,  an  invocation  produces  an  identifier  which  is  unique 
with  respect  to  all  the  common  block  names  in  the  input  file  and  those 
generated  thus  far.  See  the  GENER  function  in  the  second  part  of  this 
manual . 


A  parser  for  FORTRAN  expressions  is  provided  primarily  so  that 
a  user  may  analyze  the  arguments  of  a  macro  action.  For  example,  one 
may  wish  to  determine  if  an  argument  is  a  simple  variable  or  a  valid 
subscript  expression.  The  parser  will  produce  post-fix  polish  parse 
strings  which  may  be  examined  and  modified  by  the  sophisticated  macro 
writer  via  the  string  manipulation  components  of  the  STREX  language. 
Any  well-formed  parse  string  may  then  be  requested  to  yield  the  string 
it  derives,  i.e.,  the  reverse  of  parsing.  See  the  functions  PARSE, 
GETTOK,  ADDTOK,  and  RPARSE  in  the  second  part  of  this  manual. 

The  BIGMAC  user  may  also  examine  the  environment  surrounding  a 
macro  activation  phrase.  One  may  inquire  as  to  the  existence  and 
usage  of  common  block  and  variable  names  in  the  (input-text)  proce¬ 
dure  containing  the  activation  phrase  of  the  current  macro  invocation. 
See  the  functions  VTHERE,  CTHERE,  and  VTYPE  in  the  latter  part  of  this 
manual . 


II.  THE  STREX  MACRO  LANGUAGE 
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0//  PRELIMINARIES 

STREX  (STRing  Extended)  FORTRAN  provides  the  linguistic  frame¬ 
work  for  programming  BIGMAC  macro-modules.  Formally,  STREX  is  a 


superset  of  a  subset  of 

subset  of  ANSI  FORTRAN. 

in  three  parts  -- 

ANSI  FORTRAN.  Section  1  outl  ines 

The  other  sections  describe  the 

the  relevant 

superset 

1: 

String  data  type  concepts. 

2: 

Macro  concepts. 

3: 

Macro  module  concepts. 

Throughout  this  part  of  the  manual,  there  arise  many  occasions  to 
reference  the  ANSI  FORTRAN  Standard  (ANSI  X3. 9-1 966).  Such  references 
will  be  abbreviated  to  lists  of  section  numbers  in  square  brackets. 


An  extended  version  of  Backus  Naur  Form  grammar  rules  will  be 
used  to  describe  the  syntactic  form  of  STREX  features.  Nonterminals 
will  consist  of  a  description  .  of  the  token  surrounded  by  angle 
brackets ,  e. g. , 

<variabl e-ref erence> 

Terminal  strings  will  be  enclosed  in  single  quotes,  e.g., 

'DO' 

A  plus  sign  will  be  used  to  compress  several  rules  having  the  same 
left-hand  sides,  e.g., 

<A>  ^  <B>  +  <C>  E  <A>  ^  <B> 

<A>  <C> 

A  superscript  star  will  denote  zero  or  more  repititions,  e.g., 

<A>  ^  <B>*  E  <A>  ■<-''+  <A>  <B> 

Curly  braces  will  be  flsed  for  bracketing  purposes,  e.g., 

<A>  ^  {<B>  <C>}*  <D>  E  <A>  <D> 

<A>  -f-  <B>  <C>  <A> 
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In  STREX  FORTRAN  there  are  six  different  kinds  of  data  types 
or  modes  -- 

INTEGER  [4.2.1]  COMPLEX  [4.2.4] 

REAL  [4.2.2]  LOGICAL  [4.2.5] 

DOUBLE  PRECISION  [4.2.3]  STRING 

The  term  STANDARD  will  denote  all  the  modes  except  STRING.  In  many 
cases  the  mode  of  the  datum  that  a  nonterminal  will  yield  upon  seman¬ 
tic  evaluation  must  be  specified.  This  will  be  done  by  writing  -- 
<A  e  TYPE>  —  which  specified  that  the  nonterminal  <A>  when  evaluated 
will  yield  a  datum  of  mode  TYPE. 


1//  FORTRAN  BASE 

The  subset  of  ANSI  FORTRAN  that  constitutes  the  base  of 
STREX  FORTRAN  consists  of  all  FORTRAN  constructions  which  do  not 
involve  any  of  the  forms  listed  below  -- 

1:  READ,  WRITE,  REWIND,  BACKSPACE,  &  ENDFILE  statements  [7.1.3] 

2:  FORMAT  statements  [7.2.3] 

2:  Hollerith  constants  [4.2.6,5.1 .1 .6,7.2.2. ,8.4.2] 

The  primary  purpose  of  a  macro  action  is  to  transform  the  input 
stream  on  the  basis  of  the  parameter  strings  passed  to  the  macro 
by  the  BIGMAC  scanner.  These  side  effects  are  handled  entirely  by 
the  text  transformation  primitives  of  STREX  (see  section  3.1). 

Hence  I/O  statements  are  not  necessary.  STREX 's  string  capabilities 
supersede  the  need  for  Hollerith  constants. 
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Ij!  STRING  FEATURES 

Due  to  the  text  manipulative  nature  of  macro  processing,  the 
notion  of  string  data  is  fundamental.  ANSI  FORTRAN  is  very  weak  in 
this  regard.  STREX  must  and  does  provide  a  more  powerful  linguistic 
medium  for  expressing  string  manipulations. 

A  string  datum  is  defined  as  an  ordered  sequence  of  FORTRAN  char¬ 
acters  [3.1].  In  what  follows  a  string  value  will  be  written  as  its 

sequence  of  characters  surrounded  by  vertical  bars.  Blank  characters 

•  t  h 

are  significant.  The  convention  is  adopted  that  the  i  character  of 

t  h 

a  string  value  is  the  i  counted  from  the  left.  The  length  of  a  string 
value  is  the  total  number  of  characters  in  its  sequence. 

Example  1 :  |  A  STRING  |  denotes  a  string  value  whose  3rd  character 

is  'S'  and  whose  length  is  8. 

The  string  data  type  is  supported  in  STREX  by  the  addition  of 
constructions  for  declaring,  assigning,  and  manipulating  string  data. 
These  constructions  are  described  in  the  following  subsections. 

STREX* s  string  component  is  implemented  in  an  interpretive  fashion. 
This  allows  the  semantic  routines  to  trap  run-time  errors  such  as 
an  attempt  to  use  an  undefined  variable  in  an  expression  or  an 
out-of-bounds  subscript.  However,  a  semantic  error  of  this  sort  does 
not  halt  execution.  An  error  fragment  is  issued,  some  conservative 
recovery  action  is  taken,  and  execution  continues.  In  the  semantic 
descriptions  that  follow,  error  conditions  are  only  noted.  For  a 
detailed  description  of  the  errors  and  their  recovery  actions  see 
Appendix  B. 
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2.1^^  String  Declarations: 

Type  statements  are  defined  in  section  7. 2. 1.6  of  the  ANSI 
Standard.  In  STREX  type  statements  can  also  declare  simple  variables 
and  arrays  to  be  of  string  type  according  to  the  syntax  -- 

la.  <type_statement> ^  'STRING'  {<declaration>  <declaration> 

String  mode  functions  referenced  in  a  program  unit  may  be  declared 
in  that  program  unit  with  the  syntax  -- 

* 

lb.  <type_statement> ^  ' FSTRING'  {<name>  <name> 

String  statement  functions  are  not  allowed. 

Function  statements  are  introduced  in  section  8.3.1  of  the  ANSI 
Standard.  STREX  allows  functions  to  return  string  values  via  the 
syntax  -- 

<fct_statement> ^  'STRING  FUNCTION'  <fct_name> 

* 

' ( ' {<formal_param> ' , ' }  <formal_param> ' ) ' 

The  semantic  implications  of  these  forms  should  be  obvious  from 
analogy  with  their  Standard  couterparts  cited  above. 

Example  2:  STRING  FUNCTION  SFUN(AVAR,ALEN,SVAR) 

STRING  AVAR(10),SVAR 
FSTRING  SFUN2 
INTEGER  ALEN 
DO  10  1=1 ,ALEN 
10  AVAR(I)  =  SFUN2(I) 

SFUN  =  SVAR 

RETURN 

END 


-22- 


2 . In  String  Assignments: 

In  STREX  there  are  two  types  of  string  assignment  statements. 

The  syntax  and  semantics  of  the  first  form  is  a  direct  extension 
of  the  assignment  statements  defined  in  the  ANSI  Standard 
[7. 1.1.1,  7. 1.1. 2]  - 

1_.  <assignment__statement>  ^  <variable_reference  e  STRING> 

■=’<expression  e  STRING> 

If  the  variable  reference  is  also  a  parameter  of  the  program  unit 
containing  the  assignment  and  further  if  this  parameter's  value 
was  obtained  by  the  pass-by-value  mechanism  then  an  error  has 
occurred  and  is  flagged.  Otherwise,  execution  of  this  construction 
causes  the  referenced  variable  to  bind  to  the  string  value  resulting 
from  the  evaluation  of  the  expression. 

The  second  assignment  form  stems  from  the  requirement  in  general 
string  manipulators  of  being  able  to  replace  substrings  of  a  string. 
STREX  uses  the  syntax  -- 

<assignment_statement>  ^<variable  reference  e  STRING> 

'  ( '  <expression-|  eINTEGER>' . .  '  <expression2eINTEGER> ' ) ' 
'  = ' <expression2eSTRING> 

The  semantics  of  this  statement  are  somewhat  involved.  If  the  refer¬ 
enced  variable  is  undefined  or  is  a  parameter  satisfying  the  condition 
given  in  the  paragraph  above  then  an  error  is  issued.  Now  suppose  the 
variable  is  bound  to  a  string  datum  that  expression-j  evaluated  to  IL, 
and  expression^  evaluates  to  R.  If  L<0  or  ^>length  (^)+l  or  1>R  then 
an  error  occurs.  Otherwise  the  substring  lying  exclusively  between  the 
]^th  and  ^th  characters  of  ^  is  replaced  by  the  value  of  expression^. 


Example  3: 


0  SVAR  =  AVAR 

0  SVAR  (0..1)  =  AVAR 

0  SVAR  (1 . .3)  =  AVAR 

0  AVAR  (0. .3)  =  SVAR 


Value  of  SVAR 
undefined 


Value  of  AVAR 
I  ABC  I 


I  ABC  I 
|ABCABC| 
AABCCABC 


AABCCABCC 


initially 
after  (T) 
after  (z) 
after 
after  (T) 
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2 . Zjj  String  Expressions: 

The  syntax  of  STREX  string  expressions  forms  a  simple  3-level 
precedence  grammar  -- 

Level  1 : 

<expression  e  STRING>  ^  <term  e  $TRING>  {'.'<term  e  STRING>}* 

(Concatenation) 

Level  2: 

<term  e  STRING>  ^  <primary  e  STRING> 

{'(‘<expression^  e  INTEGER> ' . . ‘ <expression2  e  INTEGER> ' ) ' }* 

(Substring  Selection) 

Level  3: 

<primary  e  STRING>  ^  <reference  e  STRING>  (Reference) 

+  '('  <expression  e  STRING>')'  (Parenthesis) 

+  <constant  e  STRING>  (Constant) 

+  ' = ' <expression  e  STANDARD>'='  (Conversion) 
We  discuss  each  of  the  constructions  In  .the  paragraphs  bed ovf, 

1_.  Reference: 

As  for  arithmetic  primaries  [6.1],  string  primaries  can  be  a 
variable,  an  array  element,  or  a  function  reference  whose  mode  is 
STRING.  Exectution  of  a  reference  yields  the  value  to  which  the 
reference  is  currently  bound.  If  the  reference  is  undefined  then 
the  recovery  action  is  dependent  on  the  semantic  action  requiring 
its  value  (see  appendix  B). 

2 .  Parenthesi s : 

As  for  all  ANSI  expressions,  parentheses  can  be  used  in  string 
expressions  to  enforce  an  arbitrary  order  of  evaluation. 
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A*  Constant: 

A  string  constant  denotation  has  the  following  syntax  -- 

<constant  s  STRING>  '$'<character_less_dollar>*'$' 

<character__less_dollar>  ^  <{Fortran  Characters}-{$}>  +  '$$' 

Since  dollar-sign  is  the  delimiting  character,  one  has  to  use  two 
dollar-signs  to  denote  one  within  the  constant  string. 

Example  4:  $HELL0$  has  the  value  |HELL0| 

$3$$$  has  the  value  | 3$| 

A  string  constant  may  not  be  used  in  a  data  initialization  state¬ 
ment.  This  restriction  is  somewhat  cumbersome,  but  the  effect  is 
easily  simulated  by  explicitly  initializing  the  string  variables  in 
the  SYSBEG  macro  (see  part  1,  section3). 

Conversion: 

An  arithmetic  or  logical  expression  between  equal -signs  yields 
a  string  which  is  a  constant  denotation  for  the  value  of  that  expression. 
In  the  case  of  COMPLEX,  DOUBLE  PRECISION,  and  REAL  expressions  the 
denotation  is  only  a  close  approximation  and  is  machine  dependent.* 

Example  5: 

=4/3=  evaluates  to  | .133333333333333E+1 [  on  the  CDC  6600,  but 
on  IBM  370  the  result  is  | .1333333E+1 | 

=1.GT.0=  evaluates  to  |. TRUE. |  on  any  machine. 

Substring  Selection: 

Suppose  the  primary  evaluates  to  the  string  ^  and  further  that 
expression-j  evaluates  to  and  expression^  evaluates  to  R.  If  ^  is 
undefined  or  1_  <  0  or  R  >  length  (^)  +  1  or  <  R  then  an  error  is 
issued.  Otherwise  the  resulting  term  is  the  substring  of  lying 
exclusively  between  the  Uh  and  Rth  characters.  If  more  than  one 
pair  of  selection  indices  is  involved  then  they  group  from  left  to 


*  Currently,  only  INTEGER  expressions  can  be  converted. 
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right.  For  example,  if  V  has  the  value  |ABC|  then  V  (1..4)  (1..3) 
is  equivalent  to  (V(1..4))  (1..3)  and  has  the  value  |C|. 

Concatenation: 

The  concatenation  of  a  sequence  of  strings  is  expressed  by 
separating  each  term  by  periods.  If  any  term  is  undefined  an  error 
is  noted.  If  subexpressions  involving  concatenation  occur  at  more 
than  fifty  different  and  nested  levels,  then  a  stack  error  will  occur. 
This  should  never  happen  in  practice,  e.g. 

$$.($$.($$.$$))  has  just  3  levels. 

$$.$$.$$.$$  has  just  1  level. 
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2 . 1^11  External  Functions: 

STREX  provides  three  simple  external  functions.  These  are  out¬ 
lined  in  the  chart  below. 


Name 

No.  of 
arguments 

Type  of 
arguments 

Type  of 
resul t 

Definition 

LENSTR 

1 

STRING 

INTEGER 

The  length  of 
the  argument. 

EQSTR 

2 

STRING 

LOGICAL 

True  only  if 
the  two  string 
arguments  are 
identical . 

SEARCH 

2 

STRING 

INTEGER 

0  if  the  first 
argument  is  not 
a  substring  of 
the  second. 
Otherwise,  SEARCH 
gives  the  index 
of  the  leftmost 
character  in  the 
leftmost  occur¬ 
rence  of  the 
first  argument  in 
the  second. 
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MACRO  FEATURES 

BIGMAC's  macro  capabilities  are  discussed  at  some  length  in 
the  last  three  sections  of  the  first  part  of  this  manual.  In 
particular,  the  semantics  of  text  transformations  and  name  generation 
are  specified  to  the  extent  that  this  section  only  presents  the 
STREX  syntax  for  these  primitives.  The  expression  analysis  package 
will  be  presented  more  thoroughly  in  subsection  3.3  below. 
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3 . ^||  Transformation  Primitives: 

The  text  transformation  primitives  of  BI6MAC  are  realized 
syntactically  as  STREX  statements.  The  syntax  of  each  statement  is 
listed  below  along  with  a  brief  semantic  description. 

1_.  'COMMENT'  <expression  e  STRING> 

-  If  the  length  of  the  expression  is  over  77  characters,  an 
error  message  is  issued  and  the  string  is  truncated  on  the  right. 
A  fragment  of  the  comment  type  is  appended  to  output.  The  'C 

in  column  1  and  blanks  in  columns  2  and  3  are  automatically 
generated  before  the  fragment  is  printed  by  an  output 
formatter.  These  fragments  are  not  a  part  of  the  final  output. 

'LABEL'  <expression  e  STRING> 

-  If  the  expression  is  over  5  characters  long,  an  error  is 
issued  and  the  string  truncated  on  the  right.  If  the  string  is 
the  empty  string  then  no  action  is  taken.  Otherwise,  a  fragment 
of  the  label  type  is  appended  to  output.  Labels  are  right 
justified  by  the  BIGMAC  formatter. 

3.  'ERROR'  <expression  e  STRING> 

-  The  string  may  be  of  arbitrary  length.  The  BIGMAC  formatter 
breaks  the  string  into  a  number  of  lines  if  necessary  and  tacks 
a  header  in  front  of  it.  These  fragments  are  not  a  part  of  the 
final  output. 

'EXECUTE'  <expression  e  STRING> 

-  If  the  expression  is  over  1320  characters  long  an  error  is 
issued  and  the  expression  is  truncated  on  the  right.  A  frag¬ 
ment  of  the  statement  type  is  append  to  output  unless  the 
string  is  the  empty  string  in  which  case  no  action  is  taken. 

The  BIGMAC  formatter  automatically  breaks  the  string  into  con¬ 
tinuation  lines  if  necessary. 
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DECLARE'  <expression  e  STRING> 

-  The  effect  1s  the  same  as  EXECUTE  above  except  that  the 
fragment  is  inserted  at  the  DIP  of  the  program  unit  currently 
being  scanned. 

EXECUTE'  <expression-|  e  STRING>' , ' <expression2  e  STRING> 

-  This  statement  is  an  abbreviation  for  the  two  statement 
sequence  -- 

LABEL  <expressioni> 


EXECUTE  <expre.ssion2> 
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3 . In  Unique  Name  Generator: 

The  BIGMAC  unique  name  generator  is  a  STREX-supported  explicit 
function  whose  result  is  a  unique  name.  Formally  -- 

<expression  e  STRING>  ^  'GENER( '<type>' ) ' . 

<type>  ^  'L'  +  'I'  +  'R'  +  'C. 

The  type  argument  specifies  which  class  of  name  is  being  requested 
according  to  the  scheme  -- 

L  -  Ubel 

I  -  Xt^teger  Name 

R  -  ^eal  Name 

C  -  (Common)  Block  Name 

If  it  happens  that  the  generator  has  exhausted  all  the  possible 
names  within  a  given  program  unit  (it  probably  never  will)  then  an 
error  message  is  issued  and  the  generator  starts  to  recycle  through 
the  names  for  the  overflowing  class. 
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3 . Expression  Analysis  Primitives: 

In  order  to  syntactically  analyze  an  expression  one  must  have  the 
information  provided  by  a  parsing  structure.  A  parse  tree  is  too  com¬ 
plex  a  structure  to  support.  For  an  expression,  its  Polish  prefix 
form  conveniently  conveys  its  structure  in  a  one-dimensional  form. 
Additionally,  the  Polish  representation  can  be  encoded  as  a  string 
of  tokens,  thus  allowing  one  to  examine  and  modify  it  with  the  string 
manipulation  features  of  STREX. 

The  components  of  a  FORTRAN  expression  are  grouped  into  a  num¬ 
ber  of  tokens.  Each  token  has  a  unique  integer  code.  The  tokens  and 
their  codes  are  -- 


Operands  Operators 


Code 

Token 

Code 

Token 

0 

<function  or  array  reference  argument> 

10 

•  **  1 

1 

<simple  variable> 

11 

1  *  1 

2 

<array  reference> 

12 

7* 

3 

<function  reference> 

13 

'+'  (binary) 

4 

<unsigned  constant  e  INTEGER> 

14 

(binary) 

5 

<unsigned  constant  s  REAL> 

15 

<relationat-operator> 

6 

<constant  e  L0GICAL> 

16 

'.AND.' 

7 

<unsigned  constant  e  DOUBLE  PRECISION> 

17 

' .OR. ' 

8 

<constant  e  C0MPLEX> 

18 

'.NOT.' 

9 

<constant  e  HOLLERITH> 

19 

'-'  (unary) 

Note  that  function  or  array  arguments  are  not  further  decomposed  but 
left  intact.  The  other  pieces  of  information  contained  in  a  token  are 
a  pair  of  indices  which  indicate  the  positions  within  the  original  ex¬ 
pression  between  which  lies  the  actual  string  corresponding  to  the 
token.  In  summary  a  token  is  encoded  as  a  triple  of  integers,  the 
first  element  of  which  is  the  token  code,  the  second  is  the  left  index, 
and  the  third  the  right  index.  For  example,  the  token  for  the  array 
reference  in  the  string  |3+AB(4)|  is  <2,2,8>. 
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An  expression  is  parsed  as  a  string  of  token  triples  in  Polish 
prefix  form  hereafter  referred  to  as  a  token-string.  The  boundaries 
of  the  triples  are  not  distinguished.  That  is,  a  string  of  n  tokens 
is  physically  a  string  of  3n  integers;  the  user  must  break  the  string 
into  triples  with  his  code.  Further,  the  arguments  of  a  function 
or  array  reference  immediately  follow  the  reference  token.  This  is 
consistent  with  prefix  notation  if  one  considers  an  array  a  function 
reference  as  an  operator  on  the  arguments. 

Example  6: 

The  expression  -- 

|A*(B  +  ((C/D-MIN(K,L*3,Q)))| 
- 5 - 0 - 5-.._0----5 

is  in  Polish  prefix  form  -- 


* 

A 

+ 

B 

- 

/ 

C 

D 

MIN 

K 

L*3 

Q 

- -  ^  — 

MIN  is  an  operator  Arguments  are 

on  3  arguments.  not  decomposed. 

where  each  block  is  a  token. 

The  expression's  final  token-string  encoding  is  -- 

1  11,  1,  3  !  1,  0,  2  [  13,  4,  6  i  1,  3,  5  1  14,11,13 
i  12,  8,10  i  1,  7,  9i  1,  9,11  1  3,12,25  j  0,16,18 
;  0,18,22  1  0,22,24  | 

The  parsing  package  consists  of  four  routines.  The  header  section 
of  each  routine  is  given  below  along  with  a  discussion  of  its  effect. 
Note  the  close  association  required  between  a  token-string  and  the 
original  string  from  which  it  was  created  by  the  PARSE  routine. 

1_.  STRING  FUNCTION  PARSE  (EXPSTR) 

STRING  EXPSTR 

EXPSTR  is  an  input  parameter  whose  value  is  a  string  denoting 
a  valid  ANSI  FORTRAN  expression.  The  result  of  PARSE  is  the  token¬ 
string  for  the  expression  in  EXPSTR.  The  index  pairs  of  every  token 
refer  to  locations  in  EXPSTR. 
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INTEGER  FUNCTION  6ETT0K(T0KSTR, I ,LINDEX,RINDEX) 

INTEGER  I,  LINDEX,  RINDEX 
STRING  TOKSTR 

TOKSTR  is  an  input  parameter  which  is  a  token-string  of  say 
tokens.  I  is  an  input  parameter  and  LINDEX  and  RINDEX  are  output 
parameters.  If  I  <  0  or  I  >  1^  then  GETTOK  returns  -1.  Otherwise, 
GETTOK  returns  the  token  code  of  the  Ith  token  (from  the  left)  and 
also  has  the  side-effect  of  setting  LINDEX  and  RINDEX  to  the  left  and 
right  indices  of  the  Ith  token. 

3.  STRING  FUNCTION  ADDTOK(TOKCOD,ACTSTR,EXPSTR) 

STRING  ACTSTR,  EXPSTR 

INTEGER  TOKCOD 

TOKCOD  is  an  input  parameter  which  should  be  a  valid  token  code. 
ACTSTR  is  an  input  string  which  should  represent  an  instance  of  the 
token  specified  by  TOKCOD.  EXPSTR  is  used  for  both  input  and  output. 
ADDTOK  returns  a  token  triple  whose  code  is  TOKCOD  and  whose  index 
pair  delimit  the  string  ACTSTR.  ADDTOK  has  the  side-effect  of  append¬ 
ing  ACTSTR  to  the  end  of  EXPSTR,  i.e.,  'EXPSTR  =  EXPSTR.ACTSTR' . 

4.  STRING  FUNCTION  RPARSE(TOKSTR, EXPSTR) 

STRING  TOKSTR,  EXPSTR 

TOKSTR  and  EXPSTR  are  both  input  parameters.  TOKSTR  must  be  a 
token-string  for  which  all  index  pairs  refer  to  locations  in  EXPSTR 
(hence  the  necessity  for  the  EXPSTR  argument  in  ADDTOK).  The  result 
of  RPARSE  is  the  string  derived  by  the  token-string  TOKSTR,  i.e., 
RPARSE  performs  the  reverse  of  the  action  of  PARSE. 

Token-strings  are  strings  of  integers  not  characters.  Thus 
although  one  can  manipulate  token-strings  with  STREX  string  features, 
the  user  must  be  careful  not  to  apply  any  features  which  actually 
examines  the  value  of  a  cell  in  the  string,  e.g.,  =<expression>=  or 
EXECUTE  <expression>.  Of  course  one  shouldn't  mix  strings  and 
token-strings. 
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Example  7: 

The  function  REPL  replaces  all  occurrences  of  the  variable  LEN 
with  the  constant  9  -- 

STRING  FUNCTION  REPL(EXPR) 

STRING  EXPR,  TOKSTR 

TOKSTR  =  PARSE(EXPR) 

K  =  LENSTR{T0KSTR)/3 

IF  (K.EQ.O)  GO  TO  20 

DO  10  I  =  1  ,K 

IT  =  GETTOK(TOKSTR,I,M,N) 

IF  (ITOK.NE.l)  GO  TO  10 

IF  (.NOT.EQSTR(EXPR(M..N),$LEN$))  GO  TO  10 

T0KSTR(3*I-3  ..  3*1+1)  =  ADDT0K(4,$9$,EXPR) 

10  CONTINUE 

20  REPL  =  RPARSE(TOKSTR,EXPR) 

RETURN 

END 

A  call  of  the  form  -- 

S  =  REPL($3*LEN+A(LEN)$) 
results  in  S  having  the  value  -- 

|3*9+A(9)| 
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3.4y^  Environment  Primitives 

A  number  of  system  functions  are  provided  for  analyzing  the  local 
and  global  variables  of  the  procedure  currently  being  scanned  when  a 
macro  expansion  takes  place.  There  are  functions  for  determining  whe¬ 
ther  or  not  a  given  common  block  or  variable  name  is  present  in  the 
procedure.  One  can  also  determine  the  type  of  a  variable  which  is 
local  to  the  scanned  program  unit.  The  functions  are  -- 

1.  LOGICAL  FUNCTION  CTHERE(NAME) 

STRING  NAME 

CTHERE  is  true  if  and  only  if  a  common  block  named  NAME  is  in  the 
currently  scanned  procedure.  If  name  is  undefined  CTHERE  is  false. 

2.  LOGICAL  FUNCTION  VTHERE(NAME) 

STRING  NAME 

VTHERE  is  true  if  and  only  if  a  variable  named  NAME  appears  in  the 
scanned  procedure.  If  name  is  undefined  VTHERE  is  false. 

3.  INTEGER  FUNCTION  VTYPE( NAME, ARRAY) 

STRING  NAME 

LOGICAL  ARRAY 

VTYPE  is  an  integer  code  for  the  type  of  the  variable  named  NAME  -- 
VTYPE 

0  NAME  is  undefined. 

1  NAME  does  not  appear  as  a  variable  name  in  the 
procedure 

2  NAME  appears  as  an  INTEGER  variable. 

3  NAME  appears  as  a  REAL  variable. 

4  NAME  appears  as  a  DOUBLE  PRECISION  variable. 

5  NAME  appears  as  a  COMPLEX  variable. 

6  NAME  appears  as  a  LOGICAL  variable 
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The  flag  ARRAY  will  be  true  if  and  only  if  NAME  is  used  as  an  array 
name  within  the  program  unit. 

Example  8: 

Text:  SUBROUTINE  EXAMP 

COMMON  /A/  X,Y,Z(3) 

I=FUNMAC(J) 

END 

Macro:  STRING  FUNCTION  FUNMAC(S) 

STRING  S 

LOGICAL  CTHERE,VTHERE,L(7) 

INTEGER  VTYPE 

DECLARE  $C0MM0N  /B/  R,S,T(3)$ 

L(l)  =  CTHERE  ($A$) 

L(2)  =  CTHERE  ($B$) 

L(3)  =  CTHERE  ($/A/$) 

L(4)  =  VTHERE  ($T$) 

L(5)  =  VTHERE  ($A$) 

11  =  VTYPE  ($T$,  L(6)) 

12  =  VTYPE  ($Z$,  L(7)) 


END 
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When  the  macro  FUNMAC  is  involved  the  values  of  L, 
will  be  -- 


L(1) 

.TRUE. 

L(2-6)  - 

.FALSE. 

L(7) 

.TRUE. 

11 

1 

12 

3 

II,  and  12 
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4//  MACRO  FILES 

A  STREX  macro  file  is  a  file  or  other  line-oriented  text  stream 
consisting  of  a  number  of  MACRO  lines  and  STREX  program  units  termin¬ 
ated  by  a  line  containing  a  dollar-sign  in  column  7.  A  STREX  macro 
file  is  a  complete  specification  of  a  macro  module. 

A  MACRO  line  is  a  line  containing  the  phrase  'MACRO'  in  columns 
7  through  11.  These  lines  must  occur  just  before  a  program  unit.  They 
indicate  that  the  following  STREX  routine  is  a  primary  macro  action. 

The  name  of  the  routine  is  put  in  the  recognition  table  along  with  its 
type  (subroutine  or  function)  and  the  number  of  arguments  it  requires. 
The  formal  parameters  of  such  a  routine  must  all  be  simple  string 
variables  and  if  the  unit  is  a  function  it  must  return  a  string  value. 

Any  routine  in  a  macro  file  with  the  name  -- 

SYSBEG,  PRGEND,  ROUBEG, 

SYSEND,  MANBEG,  or  ROUEND 

BLKMAK,  MANEND, 

must  be  a  primary  action  which  is  a  subroutine  with  no  arguments. 

Recall  that  these  are  the  names  of  the  special  actions  discussed  in 
section  3  of  the  first  part  of  this  manual. 


III.  APPENDICES 
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A//  SCANNER  TRANSFORMATIONS: 

In  section  2  of  part  1  the  A-statement  condition  is  presented. 

In  order  to  meet  this  condition  it  suffices  to  insure  that 

1_:  Each  A-statement  is  a  basic  block.* 

Any  label  preceeding  an  A-statement,  is  not 
referenced  by  a  DO-statement. 

The  transforms  employed  by  the  scanner  are  given  below.  The  following 
legend  is  used 

II  -  text  fragment  boundaries. 

<>  -  non-terminal  syntactic  tokens. 

Slab  -  a  label  guaranteed  to  be  unique  with  respect  to 
those  already  in  the  containing  program  unit. 

A  logical  IF  statement  is  the  only  statement  which  is  compound 
in  terms  of  basic  blocks.  Hence  to  achieve  1_  above  it  suffices  to 
'split'  every  logical  IF  statement  in  which  the  statement  part  is  an 
A-statement.  The  diagram  below  indicates  the  transform  used  -- 

II  IF  (<expr>)  <A-statement>  II 

II  IF  (.N0T.(<expr>))  GO  TO  Slab 
II  <A-statement> 
il  Slab  II  CONTINUE  || 

The  solution  for  ^  is  difficult  to  motivate  it  as  it  was 
primarily  the  result  of  implementation  issues.  The  set  of  transforms 
employed  by  the  BI6MAC  scanner  are  just  listed  below. 


*  L.  D.  Fosdick,  'BRNANL,  A  Fortran  Program  to  Identify  Basic  Blocks 
in  Fortran  Programs',  Univ.  of  Colo.,  Tech.  Rpt.  #CU-CS-040-74(l 974) 
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Case  1 :  DO  label  is  referenced  only  by  DO  statement 
Case  1.1:  DO  terminal  statement  is  an  N-statement 

II  DO  <D0-label>  <loop>  ||  ||  DO  &lab  <loop>  || 

II  <D0-label>  ||  <  N-statement>  ||  ||  &lab  ||  <  N-Statement>  || 

Case  1.2:  DO  terminal  statement  is  an  A-statement 

II  DO  <DO-label>  ^loop>  ||  ||  DO  Slab  <loop>  || 

II  <D0-label>  II  <A-Statement>  ||  ||  <A-Statement>  || 

II  &lab  II  CONTINUE  || 

Case  2:  DO  label  is  referenced  by  a  statement  other  than  a 
DO-statement . 

II  DO  <D0-label>  <loop>  ||  ||  DO  &lab  <loop>  || 

AAA/VAA/’^  * 

II  <D0-label>  ||  <  Statement>  ||  ||  <D0-label>||  <Statement> 

II  &lab  II  CONTINUE  || 

Conceptually  the  solutions  for  and  ^  can  be  applied  in 
parallel.  However,  some  inefficiencies  result.  Consider  then 
that  case  where  a  DO  terminal  statement  is  also  a  logical  IF  re¬ 
quiring  splitting.  The  appropriate  DO  transform  is  applied  (either 
case  1.2  or  2  above)  and  then  the  following  abbreviated  transform  is 
used  for  the  logical  IF  statement  -- 

II  IF  (<expr>)  <A-statement>  ||  /vwsa>  ||  IF  ( .NOT.  (<expr>) )  TO  TO  &lab 

II  <A-statement>  || 

Where  &lab  is  the  same  as  that  used  in  the  DO  transform.  The  reader 
is  now  referred  to  example  2  in  the  first  part  of  this  manual. 
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B//  ERROR  MESSAGES 

There  are  two  phases  to  using  BIGMAC.  One  first  compiles  a 
macro  module  using  the  STREX  compiler  and  then  !one  uses  the  compiled 
macro  module  to  expand  some  input  text.  Errors  are  detected  at  both 
stages.  The  STREX  compiler's  error  checking  is  not  very  extensive. 

It  basically  only  tries  to  insure  that  the  string  and  macro  compo¬ 
nents  of  STREX  programs  are  properly  translated.  The  compiler  error 
set  is  listed  below  in  the  section  entitled  "Compiler  Errors." 

The  errors  that  occur  at  the  time  a  macro  module  is  applied  to 
a  stream  of  text  are  somewhat  more  extensive.  There  are  two  classes 
of  such  errors.  The  first  set  of  errors  are  those  that  arise  when 
the  input  text  is  found  not  to  be  ANSI  FORTRAN  code  (Text  Errors). 

The  second  type  of  errors  are  macro  routine  errors  trapped  by  the 
BIGMAC  interpretive  primitives.  They  involve  such  items  as  undefined 
variables  and  subscript  range  errors.  The  semantic  action  in  progress 
when  an  error  is  detected  is  given  in  parentheses  along  with  the  error 
message.  A  corrective  action  is  taken  by  the  primitive  and  processing 
continues.  The  specific  recovery  actions  are  given  in  the  list  below. 


Compiler  Errors 
Message 

NAME  TOO  LONG  -  <name> 

LABEL  TOO  LONG  -  < label > 

END  OF  FILE 

NO  EXECUTABLE  STATEMENT 

NO  SYSBEG  MACRO 

TOO  MANY  MACROS 


Meaning 


The  variable  <name>  is  more  than  6  char¬ 
acters  long. 

The  label  <label>  is  more  than  5  charac¬ 
ters  long. 

An  end  of  file  mark  was  reached  while  still 
in  the  middle  of  a  macro. 

A  program  unit  with  no  executable  state¬ 
ments  (not  even  a  RETURN)  was  encoun¬ 
tered. 

At  least  one  common  was  used  in  the  macro 
file,  but  none  were  declared  in  a  SYS¬ 
BEG  macro. 

The  STREX  compiler's  internal  structures 
have  overflowed  (not  likely  to  happen). 
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DUPLICATE  MACRO  - 
<macro  name> 

MACRO  ARG  NOT  STRING 


ILLEGAL  SPECIFICATION  - 
<  name  > 


SYSTEM  COMMON  NAME  - 
<common-block  name> 


IMPROPER  STATEMENT 


STMT  ILLEGAL  HERE 


ILLEGAL  EXPRESSION  AT 
<  number  >  <  type  code> 


A  name  with  the  name  < macro  name>  is  de¬ 
clared  more  than  once. 

All  macro  arguments  and  macro  functions 
must  be  declared  to  be  STRING. 

The  variable  <name>  has  been  given  con¬ 
flicting  type  attributes  in  different 
type  statements. 

Certain  common  block  names  are  used  by 
the  system  and  must  not  be  used  by  the 
user.  They  are  —  BUFP,  CONCAT,  GLOP, 
ICFILE,  lOFILE,  LEXIC,  LIF,  LISTC,  MAC, 
MACSAR,  MFLAGS,  PTR,  PTRS,  SYST,  TABLE, 
WRKKEY. 

The  compiler  cannot  make  sense  of  the 
statement. 

A  statement  is  out  of  place,  e.g.  a  de¬ 
clarative  statement  following  an  ex¬ 
ecutable  one. 

The  expression  is  ill -formed.  The  error 
was  first  detected  at  the  < number 
character  of  the  expression  and  at 
that  point  the  expression  was  of  type 
<type  code>  where  the  code  is  -- 

N  -  no  type 

S  -  STRING 

I  -  INTEGER 

R  -  REAL 

C  -  COMPLEX 

D  -  DOUBLE  PRECISION 

L  -  LOGICAL 
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Text  Errors 

Message 
NAME  TOO  LONG 

TRUNCATED  TO  8  CHARACTERS  - 
<  name  > 

LABEL  TOO  LONG 

TRUNCATED  TO  5  CHARACTERS  - 

< label  > 

END  OF  FILE 


NO  EXECUTABLE  STATEMENT 


IMPROPER  MACRO  REFERENCE  - 
< macro  name> 

TYPE  DOES  NOT  MATCH 

IMPROPER  MACRO  REFERENCE  - 
<macro  name> 

WRONG  NUMBER  OF  ARGUMENTS 
NAME  ALREADY  TYPED  -  <name> 


BLOCK  NAME  TOO  LONG 
TRUNCATED  TO  6  CHARACTERS 


Meaning 


Obvious 


Obvious 


End  of  file  mark  does  not  directly 
follow  an  END  statement. 

A  program  unit  with  no  executable 
statements  was  encountered. 

Macro  is  a  subroutine  while  reference 
is  a  function  or  vice  versa. 


Reference  has  more  or  less  arguments 
than  the  macro  invoked. 


The  variable  name  has  been  typed 
twice. 

Obvious 
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Run  Time  Errors 
Message 

(Sources) 

PASS  2  -  UNDEFINED  VARIABLE 

(ADDTOK) 

(ASSIGN) 

(ASSIGNI) 

(COMMENT) 

(CONCATE) 

(CTHERE) 

(DECLARE) 

(EQUALS) 

(ERROR) 

(EXECUTE) 

(FUNCTION) 

(GETTOK) 

(LABEL) 

(LENGTH) 

(PARSE) 

(RPARSE) 

(SELECTION) 

(VTHERE) 

(VTYPE) 

PASS  2  -  SUBSCRIPT  OUT  OF  BOUNDS 

(ASSIGNI) 

(GETTOK) 

(SELECTION) 


Meaning 

(Recovery  Action) 

A  string  variable  is  undefined  - 

Returns  a  token  which  has  a  negative 
token  code. 

No  assignment  takes  place. 

No  assignment  takes  place. 

No  comment  is  placed  on  output. 

Null  string  is  substituted. 

.FALSE,  is  returned. 

No  declaration  is  placed  on  output. 

.FALSE,  is  returned. 

No  error  is  placed  on  output. 

No  statement  is  placed  on  output. 

Null  string  is  the  result  of  the 
function. 

Returns  a  negative  token  code. 

No  label  is  placed  on  output. 

0  is  returned. 

Null  string  is  the  result. 

Null  string  is  returned. 

Null  string  is  the  result. 

.FALSE,  is  returned. 

0  is  returned. 

Obvious  - 

No  assignment  takes  place. 

Negative  token  code  is  returned. 

Null  string  is  the  result. 
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PASS2  -  LABEL  TOO  LONG 

(EXECUTE) 

(LABEL) 

PASS2  -  STATEMENT  TOO  LONG 

(DECLARE) 

(EXPANSION) 

(EXECUTE) 

PASS2  -  COMMENT  TOO  LONG 

(COMMENT) 

PASS2  -  EXPRESSION  TOO  DEEP 

(CONCATE) 

PASS2  -  NAME  GENERATOR  OVERFLOW 

(INTEGER)  (GENERATE) 
(REAL)  (GENERATE) 

(LABEL)  (GENERATE) 

(COMMON)  (GENERATE) 

PASS2  -  CANNOT  ASSIGN  AN 
EXPRESSION 

(ADDTOK) 

(ASSIGN) 

(ASSIGNI) 

PASS2  -  BAD  TOKEN 

PASS2  -  BAD  TOKEN  LIST 

(RPARSE) 


Obvious  - 

Label  is  truncated  to  5  charac¬ 
ters. 

Label  is  truncated  to  5  charac¬ 
ters. 

Obvious  - 

Declaration  is  truncated  to  1320 
characters. 

Statement  is  truncated  to  1320 
characters. 

Statement  is  truncated  to  1320 
characters. 

Obvious  - 

Comment  is  truncated  to  77  char¬ 
ters. 

Nesting  depth  of  concatenation  ex¬ 
pression  is  too  deep  - 

Null  string  is  the  result. 

Name  generator  has  exhausted  all 
possible  names  of  the  indicated  type 

Generator  recycles,  i.e.,  starts 
over  again. 


A  parameter  passed  by  value  is  the 
1 eft-handside  of  an  assignment  - 

Returns  a  negative  token  code. 

No  assignment  takes  place. 

No  assignment  takes  place. 

An  invalid  token  occurs  in  a  token 
list  -- 

The  syntactic  structure  of  a  token 
list  is  invalid  -- 

Returns  the  null  string. 
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The  pneumonias  for  the  source  of  the  errors  are  indicated  below  by 
giving  section  and  item  numbers  -- 


ADDTOK  - 

3.3.3 

FUNCTION  - 

2.1.2 

ASSIGN  - 

2.2.1 

GENERATE  - 

3.2 

ASSIGNI  - 

2.2.2 

GETTOK 

3.3.2 

COMMENT  - 

3.1.1 

LABEL 

3.1.2  and  6 

CONCATE  - 

2.3.6 

LENGTH 

2.4.1 

CTHERE  - 

3.4.1 

PARSE 

3  3  1 

DECLARE  - 

3.1.5 

RPARSE 

3.3.4 

EQUALS  - 

2.4.2 

SELECTION  - 

2.3.5 

ERROR  - 

3.1.3 

VTHERE 

3.4.2 

EXECUTE  - 

3.2.4  and  6 

VTYPE 

3.4.3 

The  one  pneumonic  which  cannot  be  described  this  way  is  EXPANSION  which 
is  the  action  of  substituting  an  A-statement  fragment  by  its  neutralized 
counterpart. 
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C//  BIGMAC  ON  THE  C.U.  CBC-7600 

Using  the  BIGMAC  system  takes  two  steps.  The  first  is  to  try  to 
compile  a  STREX  macro  file  into  a  macro  module.  A  macro  module  is  a 
multi-record  file  consisting  of  three  object  modules  and  one  data  re¬ 
cord.  These  modules  and  data  when  combined  with  the  rest  of  the  BIG¬ 
MAC  expansion  component,  implement  the  macro  process  specified  by  the 
STREX  file.  Applying  this  processor  to  some  AINSI  FORTRAN  text  file 
constitutes  the  second  step. 

In  terms  of  KRONOS  control  language  the  first  step  takes  the 
form  - 

GET  (BIGCMP/PJ  =  PAIX,ID  =  A246) 

CALL  (BIGCMP,  RENAME/S  =  ?,  M  =  ?) 

The  S  parameter  is  the  name  of  the  STREX  macro  file  and  the  M  parameter 
is  the  resulting  macro  module.  This  step  requires  i25gK  and  depending 
on  how  heavily  the  string  and  macro  features  of  STREX  are  used,  compiles 
code  at  a  rate  between  5  and  40  lines/second. 

The  second  step  is  carried  out  by  the  procedure  BIGMAC  which  has 
three  parameters  -- 

GET  BIGMAC/PJ  =  PAIX,ID  =  A246) 

CALL  (BIGMAC,  RENAME/M  =  ?,  I  =  ?,  B  =  ?) 

The  M  parameter  must  be  the  name  of  a  macro  module  created  by  BIGCMP 
above.  The  I  parameter  is  the  AINSI  FORTRAN  text  to  be  expanded  and  the 
B  parameter  is  the  result  of  the  expansion.  This  step  requires 
lOOgK  plus  enough  extra  core  to  fit  the  object  modules  of  the  macro  mod¬ 
ule.  The  processing  rate  is  60  lines/second  plus  the  time  spent  in  the 
macros  themselves. 
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The  diagram  below  summarizes  the  steps  -- 


Text  File  Expanded  File 
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D//  SAMPLE  APPLICATIONS 

Three  examples  will  be  given  below.  The  computer  printouts 
for  each  example  consist  of  three  segments  in  the  following  order  -- 

X:  The  macro  file  for  the  example. 

X:  The  input  text  to  be  expanded  by  1. 

X:  The  BIGMAC  listing  of  the  expansion  of  2  by  1 . 

The  printout  for  the  first  example  also  contains  the  object  code 
(FORTRAN)  for  the  macros  in  the  macro  file  and  the  day  file  for  the 
job. 

The  first  application  illustrates  the  usage  of  the  parser  and  en¬ 
vironment  primitives.  An  auxiliary  macro  AINSI(INDEX)  takes  the  expres¬ 
sion  INDEX  and  determines  whether  or  not  it  is  a  legal  AINSI  subscript 

expression.  A  function  macro  BNS(INDEX)  replaces  itself  with  a  refer- 
t  h 

ence  to  the  INDEX  element  of  an  array  B.  BNS  assigns  the  index  to  a 
tem.porary  variable  if  and  only  if  AINSI(INDEX)  is  false. 
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The  second  example  is  a  simple  implementation  of  the  procedures 
POP  and  PUSH.  Each  macro  requires  a  large  number  of  parameters.  The 
user  must  be  intimately  connected  with  the  code  produced  by  the  macros 
in  order  to  use  them  correctly. 
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The  final  example  is  an  extension  of  the  second  and  demonstrates 
the  power  of  BIGMAC  in  implementing  data  abstractions.  The  data  abstrac¬ 
tion  stack  is  supported  with  the  macros  - 

1_.  SUBROUTINE  DECLAR  (<type>,  <name>,  <length>) 

<name>  is  a  variable  name. 

<type>  is  a  key  word  for  one  of  the  five  standard  types. 

<length>  is  an  integer  constant  or  parameter. 

DECLAR  declares  <name>  to  be  a  stack  of  size  <length>  and 
type  <type>. 

2.  SUBROUTINE  START  (<name>) 

START  initializes  the  top  of  the  stack  <name>  to  the  first 
element  of  the  stack. 

SUBROUTINE  PUSH  (<name>,  <expression >,  <label>) 

< expression >  is  an  expression. 

<label>  is  a  statement  label. 

PUSH  pushes  the  expression  < expression >  onto  the  top  of  the 
stack  <name>  unless  there  is  an  overflow  in  which  case 
control  passes  to  the  statement  labelled  < label  >. 

4.  FUNCTION  POP  (<name>,  <label>) 

POP  pops  the  top  of  the  stack  <name>  unless  the  stack  under¬ 
flows  in  which  case  control  passes  to  <Tabel>.  The 
type  of  the  result  of  the  POP  is  the  type  given  to 
the  stack  in  its  DECLARation. 

The  required  macros  are  much  more  complex  than  the  macros  of  the  second 
example,  but  much  power  has  been  gained.  First,  stacks  of  any  type  are 
supported.  The  implementation  of  POP  in  the  second  example  constrains 
stacks  to  be  of  INTEGER  type.  Secondly,  less  parameters  are  needed  for 
each  invocation  of  POP  and  PUSH  and  the  implementation  of  the  abstrac¬ 
tion  need  not  be  understood  by  the  user.  Finally,  a  fixed  amount  of 
storage  is  needed  for  temporaries  in  the  code  generated  by  POP.  This 
is  not  true  of  the  second  example.  The  one  drawback  is  that  at  most 
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eight  POPs  of  a  given  type  may  occur  in  a  single  statement.  (See  the 
example  of  the  routine  MISTAK.)  However,  this  limit  will  rarely  be  ex¬ 
ceeded  in  practice. 

Arbitrarily  complex  data  abstractions  may  be  implemented  by 
BI6MAC.  The  limiting  factor  is  the  coding  effort. 
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CRO  activations  errors  comments  executable  statements 
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***  SUMMARY  OF  EOF 
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MACRO  ACTIVAIIQNS  ERRORS  COMMENTS  EXECUTABLE  STATEMENTS 
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